﻿Public Class frmPVenta

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        End
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim usuario As String = txtUsuario.Text
        Dim clave As String = txtClave.Text

        bd.openConnection()

        Dim resultado As Array = bd.validaIngreso(usuario, clave)
        If (resultado(0) = True) And (resultado(2) = 1) Then
            Me.Hide()

            Dim id = resultado(1)
            Dim perfil = resultado(3)

            setUsuario(id, perfil)

            frmVentanaPrincipal.Show()
            frmVentanaPrincipal.btnFacturacion.Enabled = permFacturacion
            frmVentanaPrincipal.btnInventario.Enabled = permInventario
            frmVentanaPrincipal.btnProveedor.Enabled = permProveedor
            frmVentanaPrincipal.btnReportes.Enabled = permReportes
            frmVentanaPrincipal.btnRespaldos.Enabled = permRespaldo
            frmVentanaPrincipal.btnCagoriaProducto.Enabled = permCatProducto
            frmVentanaPrincipal.btnAdminUsers.Enabled = permUsuario
            frmVentanaPrincipal.btnCompras.Enabled = permCompras

            frmVentanaPrincipal.AdministracionUsuariosToolStripMenuItem.Enabled = permUsuario
            frmVentanaPrincipal.ProveedorToolStripMenuItem.Enabled = permProveedor
            frmVentanaPrincipal.CategoriaToolStripMenuItem.Enabled = permCatProducto
            frmVentanaPrincipal.InventarioToolStripMenuItem1.Enabled = permInventario
            frmVentanaPrincipal.FacturacionToolStripMenuItem.Enabled = permFacturacion
            frmVentanaPrincipal.ReportesToolStripMenuItem.Enabled = permReportes
            frmVentanaPrincipal.RespaldosToolStripMenuItem.Enabled = permRespaldo

        ElseIf (resultado(0) = True) And resultado(2) = 0 Then
            MessageBox.Show("Su Usuario esta Desabilitado. Consulte al Administrador", "Alerta !!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtClave.Clear()
            txtUsuario.Clear()
            txtUsuario.Focus()
        Else
            MessageBox.Show("Usuario ó Contraseña Incorrectos", "Alerta !!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtClave.Clear()
            txtUsuario.Clear()
            txtUsuario.Focus()

        End If

        bd.closeConnection()

    End Sub

    Private Sub frmPVenta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
